perm filename MESGEM.HDR[SAI,BGB] blob sn#102674 filedate 1974-05-17 generic text, type C, neo UTF8
COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001	   VALID 00002 PAGES
C00002 00002	
C00005 ENDMK
C⊗;

	REQUIRE "MASTER.REL[SAI,BGB]"	LOAD_MODULE;
	REQUIRE "⊂⊃⊂⊃" DELIMITERS;
	DEFINE XSUBR=⊂EXTERNAL SIMPLE INTEGER PROCEDURE⊃;

COMMENT BASIC GEOMED, IO AND DISPLAY;
	XSUBR MKUNIV;
	XSUBR GEODPY;
	XSUBR SHOW1(INTEGER WINDOW,GLASS);
	XSUBR SHOW2(INTEGER WINDOW,GLASS);

	XSUBR INB3D(STRING FILNAM);
	XSUBR INCAM(STRING FILNAM);
	XSUBR FDNAME(STRING FILNAM);

COMMENT EUCLID;
	XSUBR TRANSL(INTEGER Q;REAL X,Y,Z);
	XSUBR ROTATE(INTEGER Q;REAL X,Y,Z);
	XSUBR SHRINK(INTEGER Q;REAL X,Y,Z);

	XSUBR MKCUBE(REAL A,B,C);
	XSUBR MKCYLN(REAL A,B,C);
	XSUBR MKBALL(REAL A,B,C);

	XSUBR LAC(INTEGER Q);
	XSUBR CAR(INTEGER Q);
	XSUBR CDR(INTEGER Q);

DEFINE NFACE(Q)=⊂CAR(Q+1)⊃;DEFINE PFACE(Q)=⊂CDR(Q+1)⊃;
DEFINE NED(Q)=⊂CAR(Q+2)⊃;DEFINE PED(Q)=⊂CDR(Q+2)⊃;
DEFINE NVT(Q)=⊂CAR(Q+3)⊃;DEFINE PVT(Q)=⊂CDR(Q+3)⊃;
DEFINE DAD(Q)=⊂CAR(Q+4)⊃;DEFINE SON(Q)=⊂CDR(Q+4)⊃;
DEFINE BRO(Q)=⊂CAR(Q+5)⊃;DEFINE SIS(Q)=⊂CDR(Q+5)⊃;
DEFINE ALT(Q)=⊂CAR(Q+6)⊃;DEFINE ALT2(Q)=⊂CDR(Q+6)⊃;
DEFINE CW(Q) =⊂CAR(Q+7)⊃;DEFINE CCW(Q)=⊂CDR(Q+7)⊃;
DEFINE NUF(Q)=⊂CAR(Q+8)⊃;DEFINE PUF(Q)=⊂CDR(Q+8)⊃;

XSUBR ECW(INTEGER E,FV);XSUBR ECCW(INTEGER E,FV);XSUBR OTHER(INTEGER E,FV);
XSUBR VCW(INTEGER E,F);XSUBR VCCW(INTEGER E,F);
XSUBR FCW(INTEGER E,V);XSUBR FCCW(INTEGER E,V);

XSUBR BDET(INTEGER B);XSUBR BATT(INTEGER B1,B2);
XSUBR INVERT(INTEGER E);XSUBR EVERT(INTEGER B);

XSUBR MKBFV;XSUBR KLBFEV(INTEGER Q);
XSUBR MKEV(INTEGER F,V);
XSUBR ESPLIT(INTEGER E);
XSUBR MKFE(INTEGER V1,F,V2);
XSUBR GLUEE(INTEGER F1,V1,F2,V2);

XSUBR SWEEP(INTEGER F,FLG);
XSUBR MKCOPY(INTEGER Q);